home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b4.d64 / keyboard.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  171 lines
  1. 1 REM*****KEYBOARD*****
  2. 2 REM********BY********
  3. 3 REM***BRIAN DOBBS****
  4. 4 REM*TIMMINS, ONTARIO*
  5. 5 POKE53280,12:POKE53281,0
  6. 10 PRINT"[147]":PRINTCHR$(14):PRINT"":PRINTTAB(8)"[215]ELCOME TO THE WORLD OF
  7. 20 [153]"":[153][163]8)"LENOMMODORE 64 LENOMPUTING":[153]"":[129]T[178]1[164]4000:[130]
  8. 1000 [141]2800
  9. 1140 [153]"AS YOU CAN SEE, THE KEYBOARD FOR THE"
  10. 1150 [153]"COMMODORE 64 LOOKS LIKE A STANDARD TYPE"
  11. 1160 [153]"WRITER. DON'T BE ALARMED IF YOU DON'T"
  12. 1170 [153]"SEE ALL THE SYMBOLS ON EACH KEY BECAUSE"
  13. 1180 [153]"WE'LL EXPLAIN AS WE GO ON.":[153]"":[153]"HIT SPACE BAR TO CONTINUE"
  14. 1190 [161]A$:[139]A$[178]""[167]1190
  15. 1200 [141]2800:[153]"THE RETURNWAIT KEY IS USED TO TELL THE COM-"
  16. 1210 [153]"PUTER THAT YOU HAVE ENTERED INFORMATION"
  17. 1220 [153]"AND TO STORE IT INTO IT'S MEMORY. WHEN"
  18. 1230 [153]"WRITING A BASIC PROGRAM, YOU WILL HIT"
  19. 1240 [153]"THIS KEY AFTER YOU HAVE COMPLETED THE"
  20. 1250 [153]"LINE OF COMPUTER COMMANDS.":[153]"HIT SPACE BAR TO CONTINUEWAIT"
  21. 1270 [161]A$:[139]A$[178][199](32)[167]1320
  22. 1280 [129]A[178]1413[164]1417:[151]A,32:[130]:[129]B[178]55685[164]55689:[151]B,0:[130]
  23. 1290 [129]T[178]1[164]900:[130]:[136]A[178]1413:[136]B[178]55685:[151]A,18:[151]B,1:[151]A[170]1,20:[151]B[170]1,1
  24. 1300 [151]A[170]2,21:[151]B[170]2,1:[151]A[170]3,18:[151]B[170]3,1:[151]A[170]4,14:[151]B[170]4,1
  25. 1310 [129]T[178]1[164]900:[130]:[137]1270
  26. 1320 [141]2800
  27. 1340 [153]"IF THE SHIFTWAIT KEY IS PRESSED AND ANY KEY"
  28. 1350 [153]"WITH GRAPHIC SYMBOLS ON IT, THEN THE"
  29. 1360 [153]"SYMBOL ON THE RIGHT OF THE KEY WILL BE"
  30. 1370 [153]"DISPLAYED. IF SHIFT IS PRESSED ALONG"
  31. 1380 [153]"WITH A SPECIAL FUNCTION KEY, IT WILL"
  32. 1390 [153]"GIVE YOU THE FUNCTION ON THE UPPER PART"
  33. 1400 [153]"OF THAT KEY.":[153]"HIT SPACE BAR TO CONTINUEWAIT"
  34. 1410 [161]A$:[139]A$[178][199](32)[167]1460
  35. 1420 [136]A[178]1427:[136]B[178]55699:[136]C[178]1450:[136]D[178]55722:[151]A,32:[151]B,1:[151]A[170]1,32
  36. 1430 [151]B[170]1,1:[151]C,32:[151]D,1:[151]C[170]1,32:[151]D[170]1,1:[129]T[178]1[164]900:[130]
  37. 1440 [151]A,19:[151]B,1:[151]A[170]1,8:[151]B[170]1,1:[151]C,19:[151]D[170]1,1:[151]C[170]1,8:[151]D[170]1,1
  38. 1450 [129]T[178]1[164]900:[130]:[137]1410
  39. 1460 [141]2800
  40. 1470 [153]"THE 2 CRSRWAIT KEYS ALLOW THE USER TO MOVE"
  41. 1480 [153]"THE CURSOR (FLASHING SQUARE) IN ANY"
  42. 1490 [153]"DIRECTION. IT IS USED ALONG WITH THE"
  43. 1500 [153]"SHIFTWAIT KEY TO MOVE IT IN THE DIRECTIONS"
  44. 1510 [153]"MARKED ON THE KEYS. HOLDING DOWN THESE"
  45. 1520 [153]"KEYS WILL KEEP THE CURSOR MOVING UNTIL"
  46. 1530 [153]"YOU LET GO OF THE KEY.":[153]"HIT SPACE BAR TO CONTINUEWAIT"
  47. 1540 [161]A$:[139]A$[178][199](32)[167]1580
  48. 1550 [136]A[178]1453:[136]B[178]55725:[151]A,32:[151]B,0:[151]A[170]1,32:[151]B[170]1,0:[151]A[170]3,32
  49. 1560 [151]B[170]3,0:[151]A[170]4,32:[151]B[170]4,0:[129]T[178]1[164]900:[130]:[151]A,3:[151]B,1:[151]A[170]1,18
  50. 1570 [151]B[170]1,1:[151]A[170]3,3:[151]B[170]3,1:[151]A[170]4,18:[151]B[170]4,1:[129]T[178]1[164]900:[130]
  51. 1575 [137]1540
  52. 1580 [141]2800
  53. 1590 [153]"IF YOU HIT THE INST/DELWAIT KEY, THE CURSOR"
  54. 1600 [153]"WILL DELETE THE PREVIOUS CHARACTER YOU"
  55. 1610 [153]"HAVE JUST TYPED AND THE LINE WILL MOVE"
  56. 1620 [153]"IN TO FILL THE SPACE. PRESSING SHIFT"
  57. 1630 [153]"INST/DELWAIT ALLOWS YOU TO INSERT A LETTER"
  58. 1640 [153]"IF YOU HAPPEN TO MAKE A MISTAKE.":[153]"HIT SPACE BAR TO CONTINUEWAIT"
  59. 1650 [161]A$:[139]A$[178][199](32)[167]1680
  60. 1655 [136]A[178]1256:[136]B[178]55528:[151]A,32:[151]B,0
  61. 1660 [151]A[170]1,32:[151]B[170]1,0:[129]T[178]1[164]900:[130]:[151]A,9:[151]B,1:[151]A[170]1,4:[151]B[170]1,1
  62. 1670 [129]T[178]1[164]900:[130]:[137]1650
  63. 1680 [141]2800
  64. 1690 [153]"PRESSING CLR/HOMEWAIT WILL MOVE THE CURSOR"
  65. 1700 [153]"TO THE UPPER LEFT HAND CORNER OF THE "
  66. 1710 [153]"SCREEN. A SHIFTED CLR/HOMEWAIT WILL CLEAR"
  67. 1720 [153]"THE SCREEN AND POSITION THE CURSOR AT"
  68. 1730 [153]"THE TOP LEFT HAND CORNER OF THE SCREEN."
  69. 1740 [153]"THIS POSITION IS KNOWN AS 'HOME'.":[153]"PRESS SPACE BAR TO CONTINUEWAIT"
  70. 1750 [161]A$:[139]A$[178][199](32)[167]1780
  71. 1760 [136]A[178]1253:[136]B[178]55525:[151]A,32:[151]B,0:[151]A[170]1,32:[151]B[170]1,0:[129]T[178]1[164]900:[130]
  72. 1770 [151]A,3:[151]B,1:[151]A[170]1,8:[151]B[170]1,1:[129]T[178]1[164]900:[130]:[137]1750
  73. 1780 [141]2800
  74. 1790 [153]"USING THE RESTOREWAIT KEY WILL BRING THE"
  75. 1800 [153]"THE COMPUTER BACK TO THE NORMAL STATE"
  76. 1810 [153]"THAT IT AS WAS IN BEFORE IT WAS CHANGED"
  77. 1820 [153]"BY A PROGRAM OR SOME OTHER COMMAND."
  78. 1830 [153]"HIT SPACE BAR TO CONTINUEWAIT"
  79. 1840 [161]A$:[139]A$[178][199](32)[167]1890
  80. 1850 [136]A[178]1334:[136]B[178]55606:[151]A,32:[151]B,0:[151]A[170]1,32:[151]B[170]1,0:[151]A[170]2,32
  81. 1860 [151]B[170]2,0:[151]A[170]3,32:[151]B[170]3,0:[129]T[178]1[164]900:[130]
  82. 1870 [151]A,18:[151]B,1:[151]A[170]1,5:[151]B[170]1,1:[151]A[170]2,19:[151]B[170]2,1:[151]A[170]3,20
  83. 1880 [151]B[170]3,1:[129]T[178]1[164]900:[130]:[137]1840
  84. 1890 [141]2800
  85. 1900 [153]"THE 4 FUNCTIONWAIT KEYS ON THE RIGHT SIDE"
  86. 1910 [153]"OF THE KEYBOARD CAN BE PROGRAMMED TO DO"
  87. 1920 [153]"ENDLESS AMOUNTS OF FUNCTIONS. THEY ARE"
  88. 1930 [153]"USED TO DO REPETITIVE TASKS WITHIN A"
  89. 1940 [153]"PROGRAM. EACH KEY HAS 2 FUNCTIONS AND"
  90. 1950 [153]"CAN BE EXECUTED WITH THE SHIFT KEY."
  91. 1960 [153]"PRESS SPACE BAR TO CONTINUEWAIT"
  92. 1970 [161]A$:[139]A$[178][199](32)[167]2040
  93. 1980 [136]A[178]1260:[136]B[178]55532:[129]C[178]A[164]1500[169]80:[151]C,32:[130]
  94. 1985 [129]D[178]B[164]55772[169]80:[151]D,0:[130]
  95. 1990 [129]C[178]A[170]1[164]1501[169]80:[151]C,32:[130]:[129]D[178]B[170]1[164]55773[169]80:[151]D,0:[130]
  96. 2000 [129]T[178]1[164]900:[130]
  97. 2010 [151]A,6:[151]B,1:[151]A[170]1,49:[151]B[170]1,1:[151]A[170]80,6:[151]B[170]80,1:[151]A[170]81,51
  98. 2020 [151]B[170]81,1:[151]A[170]160,6:[151]B[170]160,1:[151]A[170]161,53:[151]B[170]161,1:[151]A[170]240,6
  99. 2030 [151]B[170]240,1:[151]A[170]241,55:[151]B[170]241,1:[129]T[178]1[164]900:[130]:[137]1970
  100. 2040 [141]2800
  101. 2050 [153]"THE CTWAIT KEY ALLOWS THE USER TO SET THE"
  102. 2060 [153]"FIRST 8 COLORS AND TO CREATE REVERSE"
  103. 2070 [153]"FIELD CHARACTERS. PRESS SPACE... IS IN"
  104. 2080 [153]"REVERSE FIELD. THE CTRLWAIT KEY MUST BE"
  105. 2090 [153]"HELD DOWN WHILE PRESSING ANOTHER KEY."
  106. 2095 [153]"CTRLWAIT IS USED TO SCROLL A PROGRAM LIST."
  107. 2100 [153]"PRESS SPACE BAR TO CONTINUEWAIT"
  108. 2110 [161]A$:[139]A$[178][199](32)[167]2150
  109. 2120 [136]A[178]1305:[136]B[178]55577:[151]A,32:[151]B,0:[151]A[170]1,32:[151]B[170]1,0:[129]T[178]1[164]900:[130]
  110. 2130 [151]A,3:[151]B,1:[151]A[170]1,20:[151]B[170]1,1:[129]T[178]1[164]900:[130]:[137]2110
  111. 2150 [141]2800
  112. 2160 [153]"THE RUN/STOPWAIT KEY TELLS THE COMPUTER"
  113. 2170 [153]"TO STOP WHERE IT IS WHEN EXECUTING A"
  114. 2180 [153]"PROGRAM. IT IS USED TO EXIT FROM THE"
  115. 2190 [153]"PROGRAM. USING RUN/STOPWAIT IN THE SHIFTED"
  116. 2200 [153]"MODE, WILL ALLOW A PROGRAM LOAD FROM"
  117. 2210 [153]"TAPE."
  118. 2220 [153]"PRESS SPACE BAR TO CONTINUEWAIT"
  119. 2240 [161]A$:[139]A$[178][199](32)[167]2270
  120. 2250 [136]A[178]1385:[136]B[178]55657:[151]A,32:[151]B,0:[129]T[178]1[164]900:[130]:[151]A,18:[151]B,1
  121. 2260 [129]T[178]1[164]900:[130]:[137]2240
  122. 2270 [141]2800
  123. 2280 [153]"THE COMMODOREWAIT KEY PERFORMS A VARIETY OF"
  124. 2290 [153]"FUNCTIONS. FIRST IT ALLOWS MOVEMENT BE-"
  125. 2300 [153]"TWEEN TEXT AND GRAPHICS MODE. IF YOU"
  126. 2310 [153]"HOLD DOWN THIS KEY AND TYPE A KEY WITH"
  127. 2320 [153]"A GRAPHIC SYMBOL,THE SYMBOL ON THE LEFT"
  128. 2330 [153]"HAND SIDE WILL BE DISPLAYED."
  129. 2340 [153]"PRESS SPACE BAR TO CONTINUEWAIT"
  130. 2350 [161]A$:[139]A$[178][199](32)[167]2380
  131. 2360 [141]2600
  132. 2370 [137]2350
  133. 2380 [141]2800
  134. 2390 [153]"BY HOLDING THE COMMODORE KEY AND SHIFT,"
  135. 2400 [153]"THE DISPLAY WILL CHANGE TO UPPER/LOWER"
  136. 2410 [153]"CASE. THIS KEY ALSO ALLOWS SELECTION OF"
  137. 2420 [153]"THE SECOND SET OF 8 COLORS BY HOLDING"
  138. 2430 [153]"THE KEY AND PRESSING THE COLOR KEY."
  139. 2435 [153]"IT ALSO LOADS DURING A PROGRAM SEARCH."
  140. 2440 [153]"HITSPACE BAR TO CONTINUEWAIT"
  141. 2450 [161]A$:[139]A$[178][199](32)[167]2480
  142. 2460 [141]2600
  143. 2470 [137]2450
  144. 2480 [153][199](14)"LOAD":[153]"(null)HIS CONCLUDES THE DESCRIPTION OF THE"
  145. 2490 [153]"LENOMMODORE 64 KEYBOARD. RIGHT$F YOU ARE STILL"
  146. 2500 [153]"IN DOUBT ABOUT THE FUCTIONS OF THE SOME"
  147. 2510 [153]"OF THE KEYS, REFER TO THE (null)SER'S GUIDE"
  148. 2520 [153]"OR THE (null)RORAMMER'S (null)EFERENCE CHR$UIDE. RIGHT$F"
  149. 2530 [153]"YOU WOULD LIKE TO REVIEW THE KEYBOARD"
  150. 2540 [153]"SECTION ONCE MORE HIT 'ASC1'WAIT,IF NOT HIT"
  151. 2550 [153]"'ASC3'WAIT."
  152. 2560 [161]A$:[139]A$[178][199](133)[167]1000
  153. 2570 [161]A$:[139]A$[178][199](134)[167][128]
  154. 2580 [137]2560
  155. 2600 [136]A[178]1465:[136]B[178]55737
  156. 2610 [151]A,32:[151]B,0:[129]T[178]1[164]900:[130]:[151]A,3:[151]B,1:[129]T[178]1[164]900:[130]:[142]
  157. 2800 [153]"LOAD":[153][199](142):[153][163]9)"COMMODORE 64 KEYBOARD":[153]""
  158. 2810 [153]"ORLEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LENLEN=LENLEN^ORLENLEN^"
  159. 2820 [153]"PEEK_PEEK1PEEK2PEEK3PEEK4PEEK5PEEK6PEEK7PEEK8PEEK9PEEK0PEEK+PEEK-PEEK\PEEKCHPEEKIDPEEKPEEKF1PEEK"
  160. 2830 [153]"-LEN>=>=>=>=>=>=>=>=>=>=>=>=>=>=LEN>LENLEN<-LENLEN<"
  161. 2840 [153]"PEEKCTPEEKQPEEKWPEEKEPEEKRPEEKTPEEKYPEEKUPEEKIPEEKOPEEKPPEEK@PEEK*PEEK^PEEKRESTPEEKPEEKF3PEEK"
  162. 2850 [153]"-LEN=>=>=>=>=>=>=>=>=>=>=>=>=>=>LENLENLENLEN<-LENLEN<"
  163. 2860 [153]"PEEKRPEEKSPEEKAPEEKSPEEKDPEEKFPEEKGPEEKHPEEKJPEEKKPEEKLPEEK:PEEK;PEEK=PEEKRTURNPEEKPEEKF5PEEK"
  164. 2870 [153]"-LEN(null)LEN>=>=>=>=>=>=>=>=>=>=>=>LEN(null)LENLEN=LENLEN<-LENLEN<"
  165. 2880 [153]"PEEKCPEEKSHPEEKZPEEKXPEEKCPEEKVPEEKBPEEKNPEEKMPEEK,PEEK.PEEK/PEEKSHPEEKCRPEEKCRPEEKPEEKF7PEEK"
  166. 2890 [153]"/LEN>LENLEN>LEN>LEN>LEN>LEN>LEN>LEN>LEN>LEN>LEN>LEN>LENLEN>LENLEN>LENLENEXP/LENLENEXP"
  167. 2900 [153]"      ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^"
  168. 2910 [153]"      PEEK    SPACE BAR   PEEK"
  169. 2920 [153]"      /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP":[153]""
  170. 2930 [142]
  171.